From e1e1dd7203e52783af037082fc85c5be1a37cb00 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 11 Mar 2001 11:53:02 +0000 Subject: [PATCH] (rmail-output-to-rmail-file): When writing the Babyl header to the newly-created output file, bind coding-system-for-write to either rmail-file-coding-system or emacs-mule-unix. --- lisp/mail/rmailout.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 3b7ea24fd74..d3fd35916cd 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -145,7 +145,10 @@ mesasge up instead of moving forward to the next non-deleted message." (save-excursion (set-buffer file-buffer) (rmail-insert-rmail-file-header) - (let ((require-final-newline nil)) + (let ((require-final-newline nil) + (coding-system-for-write + (or rmail-file-coding-system + 'emacs-mule-unix))) (write-region (point-min) (point-max) file-name t 1))) (kill-buffer file-buffer)) (error "Output file does not exist"))) -- 2.30.2